;;设置不用产生备份文件
(setq make-backup-files nil)
(setq auto-save-mode nil)
(setq version-control t);;启用版本控制，即可以备份多次
(setq kept-old-versions 2);;备份最原始的版本两次，及第一次编辑前的文档，和第二次编辑前的文档
(setq kept-new-versions 1);;备份最新的版本1次，理解同上
(setq delete-old-versions t);;删掉不属于以上3中版本的版本
(setq backup-directory-alist '(("." . "~/.backups")));;设置备份文件的路径
(setq backup-by-copying t);;备份设置方法，直接拷贝


(tool-bar-mode -1);关闭Emacs工具栏
(menu-bar-mode -1);关闭Emacs菜单栏
(set-scroll-bar-mode nil)  ; 取消滚动栏
(setq user-full-name "cutemiex")
(setq user-mail-address "cutemiex@gmail.com")    ; 设置有用的个人信息,这在很多地方有用。
(setq kill-ring-max 200)

(display-time-mode 1)
(setq display-time-24hr-format t);;时间使用24小时制                                                
(setq display-time-day-and-date t);;时间显示包括日期和具体时间                                     
(setq display-time-use-mail-icon t);;时间栏旁边启用邮件设置                                        
(setq display-time-interval 10);;时间的变化频率，单位多少来着？ 

(setq inhibit-startup-message t);;关闭emacs启动时的画面
(column-number-mode t)
(line-number-mode t)
(transient-mark-mode t)
(fset 'yes-or-no-p 'y-or-n-p)

(put 'scroll-left 'disabled nil) ;允许屏幕左移
(put 'scroll-right 'disabled nil) ;允许屏幕右移
(put 'set-goal-column 'disabled nil)
(put 'narrow-to-region 'disabled nil)
(put 'upcase-region 'disabled nil)
(put 'downcase-region 'disabled nil)
(put 'LaTeX-hide-environment 'disabled nil)
;;把这些缺省禁用的功能打开。

;;set work directory
(setq default-directory "~/.emacs.d/mi-emacs/")

(setq x-select-enable-clipboard t)

(setq frame-title-format "%b@emacs")

;; 尽快显示按键序列提示
(setq echo-keystrokes 0.1)

(setq track-eol t)
;; 当光标在行尾上下移动的时候，始终保持在行尾。

;;(global-set-key (kbd "C-,") 'scroll-left)
;; "C-,"设为屏幕左移命令
;;(global-set-key (kbd "C-.") 'scroll-right)
;; "C-."设为屏幕右移命令

(setq time-stamp-active t)
(setq time-stamp-warn-inactive t)
(setq time-stamp-format "%:y-%02m-%02d %3a %02H:%02M:%02S chunyu")
;; 设置时间戳，标识出最后一次保存文件的时间。


;;enable eldoc-mode, show doc string in the mini buffer 
(eldoc-mode 1)

;;(ido-mode t) ;;不太好用，打开ido，使打开文件时后面有提示，在emacs23带有ido

(setq scroll-margin 5 scroll-conservatively 10000)  ;;Scorll remain 5 old lines

(setq show-paren-mode t) ;;打开括号匹配显示模式
(setq show-paren-style 'parenthesis)
;;括号匹配时可以高亮显示另外一边的括号，但光标不会烦人的跳到另一个括号处。


(defun toggle-fullscreen (&optional f)
  (interactive)
  (let ((current-value (frame-parameter nil 'fullscreen)))
    (set-frame-parameter nil 'fullscreen
			 (if (equal 'fullboth current-value)
			     (if (boundp 'old-fullscreen) old-fullscreen nil)
			   (progn (setq old-fullscreen current-value)
				  'fullboth)))))

;;full screen set
;;(toggle-fullscreen)

;;(toggle-debug-on-quit);;打开这个可以看到emacs在做啥，C-g回打出堆栈

;;(toggle-debug-on-error)

;;设置默认的主模式
(setq default-major-mode 'shell-script-mode )